home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue55 / Persist / ECDSFieldsEditor.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-02-02  |  1.1 KB  |  52 lines
  1. unit ECDSFieldsEditor;
  2. {
  3. Author     : Guy Smith-Ferrier
  4. Date       : February 2000
  5. Description:
  6. This unit contains TECDSDataSetEditor which is the Enhanced TClientDataSet
  7. Fields Editor. It inherits from TClientDataSetEditor and TCDSDesigner which
  8. are located in MidReg2 (which contains further information).
  9. }
  10.  
  11. interface
  12.  
  13. uses
  14.   EDSFieldsEditor, MidReg2, DBReg, DB, DSDesign, DsgnIntf;
  15.  
  16. type
  17.   TECDSDataSetEditor = class(TClientDataSetEditor)
  18.   protected
  19.     function GetDSDesignerClass: TDSDesignerClass; override;
  20.   end;
  21.  
  22.   TECDSDesigner = class(TCDSDesigner)
  23.   public
  24.     function GetControlClass(Field: TField): string; override;
  25.   end;
  26.  
  27.   procedure Register;
  28.  
  29. implementation
  30.  
  31. uses
  32.   DBClient, EFECommon;
  33.  
  34. function TECDSDesigner.GetControlClass(Field: TField): string;
  35. begin
  36.   Result:=EFEGetControlClass(Field);
  37.   if Result='' then
  38.     Result := inherited GetControlClass(Field)
  39. end;
  40.  
  41. function TECDSDataSetEditor.GetDSDesignerClass: TDSDesignerClass;
  42. begin
  43.   Result := TECDSDesigner
  44. end;
  45.  
  46. procedure Register;
  47. begin
  48.   RegisterComponentEditor(TClientDataSet, TECDSDataSetEditor);
  49. end;
  50.  
  51. end.
  52.